home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / avm / prog / source / answerfaxold.avmsrc < prev    next >
Text File  |  1977-12-31  |  4KB  |  242 lines
  1. startrecord=true
  2. label=
  3. nodetype=7
  4. filename=avm:rexx/stdhead.avm
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=
  10. nodetype=8
  11. line1=parse arg servername mailbox .
  12. line2=if symbol('mailbox') ~= 'VAR' | mailbox = '' then mailbox = 'manual'
  13. line3=options failat 50
  14. line4=
  15. line5=
  16. line6=
  17. line7=
  18. line8=
  19. line9=
  20. line10=
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=
  26. nodetype=5
  27. mode=3
  28. nextactiontype=3
  29. nextactionaction=
  30. endrecord=true
  31. startrecord=true
  32. label=
  33. nodetype=8
  34. line1='turnoffvoicemode'
  35. line2=
  36. line3=
  37. line4=
  38. line5=
  39. line6=
  40. line7=
  41. line8=
  42. line9=
  43. line10=
  44. nextactiontype=3
  45. nextactionaction=
  46. endrecord=true
  47. startrecord=true
  48. label=
  49. nodetype=6
  50. mode=0
  51. nextactiontype=3
  52. nextactionaction=
  53. endrecord=true
  54. startrecord=true
  55. label=
  56. nodetype=9
  57. baud=4
  58. bits=1
  59. parity=0
  60. stopbits=0
  61. handshaking=1
  62. erroractiontype=3
  63. erroractionaction=
  64. nextactiontype=3
  65. nextactionaction=
  66. endrecord=true
  67. startrecord=true
  68. label=
  69. nodetype=8
  70. line1=address rexx_gpfax 'listen'
  71. line2=address rexx_gpfax 'recfax'
  72. line3=faxresult = rc
  73. line4=address rexx_gpfax 'unlisten'
  74. line5=
  75. line6=
  76. line7=
  77. line8=
  78. line9=
  79. line10=
  80. nextactiontype=3
  81. nextactionaction=
  82. endrecord=true
  83. startrecord=true
  84. label=
  85. nodetype=16
  86. timeout=2
  87. abortactiontype=0
  88. abortactionaction=stdabort
  89. erroractiontype=0
  90. erroractionaction=stderror
  91. nextactiontype=3
  92. nextactionaction=
  93. endrecord=true
  94. startrecord=true
  95. label=
  96. nodetype=11
  97. line1=AT+FCLASS=0
  98. timeout=10
  99. swallowecho=1
  100. timedoutactiontype=0
  101. timedoutactionaction=stdtimedout
  102. abortactiontype=0
  103. abortactionaction=stdabort
  104. erroractiontype=0
  105. erroractionaction=stderror
  106. nextactiontype=3
  107. nextactionaction=
  108. endrecord=true
  109. startrecord=true
  110. label=
  111. nodetype=10
  112. timeout=2
  113. valueactiontype=3
  114. valueactionaction=
  115. timedoutactiontype=3
  116. timedoutactionaction=
  117. abortactiontype=0
  118. abortactionaction=stdabort
  119. erroractiontype=0
  120. erroractionaction=stderror
  121. nextactiontype=3
  122. nextactionaction=
  123. endrecord=true
  124. startrecord=true
  125. label=
  126. nodetype=10
  127. timeout=2
  128. valueactiontype=3
  129. valueactionaction=
  130. timedoutactiontype=3
  131. timedoutactionaction=
  132. abortactiontype=0
  133. abortactionaction=stdabort
  134. erroractiontype=0
  135. erroractionaction=stderror
  136. nextactiontype=3
  137. nextactionaction=
  138. endrecord=true
  139. startrecord=true
  140. label=
  141. nodetype=8
  142. line1=handle = makeUniqueFile()
  143. line2=call initLogEntry()
  144. line3=
  145. line4=
  146. line5=
  147. line6=
  148. line7=
  149. line8=
  150. line9=
  151. line10=
  152. nextactiontype=3
  153. nextactionaction=
  154. endrecord=true
  155. startrecord=true
  156. label=
  157. nodetype=8
  158. line1=log.comment = 'Fax attempted.'
  159. line2=log.type = 'unknown'
  160. line3=if faxresult <= 5 then signal gotfax
  161. line4=
  162. line5=
  163. line6=
  164. line7=
  165. line8=
  166. line9=
  167. line10=
  168. nextactiontype=0
  169. nextactionaction=finished
  170. endrecord=true
  171. startrecord=true
  172. label=gotfax
  173. nodetype=8
  174. line1=address rexx_gpfax 'reportlog' 1
  175. line2=faxfiles = result || '#?'
  176. line3=slashpos = lastpos('/', result)
  177. line4=if slashpos = 0 then log.filename = result
  178. line5=else log.filename = right(result, length(result) - slashpos)
  179. line6=
  180. line7=
  181. line8=
  182. line9=
  183. line10=
  184. nextactiontype=3
  185. nextactionaction=
  186. endrecord=true
  187. startrecord=true
  188. label=
  189. nodetype=8
  190. line1=address command 'copy >nil: <nil: quiet' faxfiles voiceFile(mailbox, '')
  191. line2=address rexx_gpfax 'reportlog' 6
  192. line3=log.length = result
  193. line4=address rexx_gpfax 'reportlog' 2
  194. line5=log.comment = result 'page(s) received.'
  195. line6=
  196. line7=
  197. line8=
  198. line9=
  199. line10=
  200. nextactiontype=3
  201. nextactionaction=
  202. endrecord=true
  203. startrecord=true
  204. label=
  205. nodetype=8
  206. line1=address rexx_gpfax 'reportlog' 4
  207. line2=log.returnnumber = result
  208. line3=log.type = 'fax'
  209. line4=
  210. line5=
  211. line6=
  212. line7=
  213. line8=
  214. line9=
  215. line10=
  216. nextactiontype=3
  217. nextactionaction=
  218. endrecord=true
  219. startrecord=true
  220. label=finished
  221. nodetype=8
  222. line1=call saveLogEntry(mailbox, handle)
  223. line2=
  224. line3=
  225. line4=
  226. line5=
  227. line6=
  228. line7=
  229. line8=
  230. line9=
  231. line10=
  232. nextactiontype=2
  233. nextactionaction=exit
  234. endrecord=true
  235. startrecord=true
  236. label=
  237. nodetype=7
  238. filename=avm:rexx/simplestdtail.avm
  239. nextactiontype=3
  240. nextactionaction=
  241. endrecord=true
  242.